100 IFPEEK(44)<>192THENGOSUB60000:GOTO760
110 POKE56,207:POKE55,252:CLR:DV=PEEK(186):IFDV<8THENDV=8
120 POKE53280,0:POKE53281,0:POKE53246,PEEK(45):POKE43247,PEEK(46)
130 DIMP$(12),F$(12):TT$="[195] - 6 4   [204] [201] [211] [212] [211]"
140 PRINT"[147][146][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
150 FORI=1TO3:PRINT"[158]                                        ";:NEXT
160 PRINT"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";:GOSUB560
170 POKE211,0:POKE214,22:SYS58732
180 PRINT"[146][153][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
190 PRINT"[159]                                        ";
200 PRINT"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
210 POKE2023,PEEK(2022):POKE56295,PEEK(56294):GOSUB560
220 PRINT"[158]"SPC(20-LEN(TT$)/2)TT$
230 POKE211,10:POKE214,23:SYS58732:PRINT"[159][195][210][211][210]/[210][197][212][213][210][206] [212]O [211]ELECT
240 [153]"":[129]I[178]1[164]17
250 [153]"CONTSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(":[130]
260 [153]"":[129]I[178]1[164]14
270 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(":[130]
280 [153]"":[129]I[178]1[164]14
290 [153]"OPEN                               ":[130]
300 P$(1)[178]" (null)IST (null)F PEEKATN(null)RIGHT$LEN/(null)(null) (null)OUTINES   "
310 P$(2)[178]" (null)PRITE (null)EGISTERS            "
320 P$(3)[178]" (null)RIGHT$STR$ (null)EGISTERS               "
330 P$(4)[178]" 6502 RIGHT$NSTRUCTION (null)ET        "
340 P$(5)[178]" LEN-64 (null)O 128 (null)EMORY (null)AP      "
350 P$(6)[178]" (null)ETURN (null)O (null)(null)ATNSTR$(null)(null)ATN(null)          "
360 P$(7)[178]" (null)ESET LENOMPUTER              "
370 F$(1)[178]"ROUTINES"
380 F$(2)[178]"SPRITE REGS
390 F$(3)="SID REGISTERS
400 F$(4)[178]"INST SET
410 F$(5)="MEMORY MAP"
420 F$(6)="HELLO CONNECT"
430 F$(12)=""
440 PRINT"":FORI=1TO7:PRINT"[159]"P$(I):NEXT:IT=1:OT=1:GOSUB530
450 GETA$:IFA$<>""ANDA$<>"[145]"ANDA$<>CHR$(13)ANDA$<>"Q"THEN450
460 IFA$="Q"THEN580
470 OT=IT:IFA$=""THENIT=IT+1:IFIT>7THENIT=1
480 IFA$="[145]"THENIT=IT-1:IFIT<1THENIT=7
490 IFA$<>CHR$(13)THENGOSUB530:GOTO450
500 IFF$(IT)=""THENSYS64738
510 IFIT=7THEN580
520 GOTO640
530 POKE214,OT+6:POKE211,6:SYS58732:PRINT"[159]"P$(OT)
540 POKE214,IT+6:POKE211,6:SYS58732:WAIT53265,128,128:PRINT"[146][153]"P$(IT):RETURN
550 STOP
560 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:RETURN
570 CLOSE15:OPEN15,8,15,"S:LIST MENU":CLOSE15:SAVE"LIST MENU",8:STOP
580 A$="HELLO CONNECT":FORI=8TO13:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN600
590 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN610
600 NEXT:PRINT"[147]":POKE186,8:END
610 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
620 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:P[207]46,8:CLR:L[207]"Q$A$Q$","I
630 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
640 A$=F$(IT):FORI=8TO13:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN680
650 CLOSE15:POKE787,119
660 OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,E,E$:CLOSE15:IFE=63THEN720
670 REM OPEN15,I,15,"R"+A$+"="+A$:INPUT#15,E,E$:CLOSE15:IFE=63THEN50030
680 NEXT:POKE214,23:POKE211,0:SYS58732:
690 A$="[195]OULDN'T FIND "+F$(IT)+"!"
700 PRINT"[159]                                        [145]";SPC(20-LEN(A$)/2)A$;
710 POKE198,0:WAIT198,15:GETA$:RUN
720 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
730 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:CLR:L[207]"Q$A$Q$","I
740 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
750 STOP
760 A$="B.64 LISTS":FORI=8TO13:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN780
770 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN790
780 NEXT:PRINT"[144]":POKE186,8:END
790 Q$=CHR$(34):POKE646,PEEK(53281)
800 PRINT"P[207]49152,0:P[207]44,192:P[207]43,1:P[207]56,207:P[207]55,252:CLR:L[207]"Q$A$Q$","I
810 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[195] - 6 4   [204] [201] [211] [212] [211]"
60040 Z$(2)="BY [195]LINTON [207]'[206]EILL
60050 Z$(4)[178]"(C) 1997 BY MID$ & ASC (null)UBLISHING, RIGHT$NC."
60060 Z$(6)[178]"(null)HIS PROGRAM IS NOT SHAREWARE
60070 Z$(7)="OR IN THE PUBLIC DOMAIN."
60080 Z$(9)="1-800-594-3370 OR 1-318-221-8718
60090 [151]214,12:[153]:[129]I[178]0[164]9:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]